home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / edit / CED_HTML.lha / CED_HTML / install.script < prev    next >
Text File  |  1999-01-27  |  3KB  |  113 lines
  1. ;
  2. ;
  3. ; Installer-Script for CED_HTML v1.9
  4. ; ----------------------------------
  5. ;
  6. ; CED_HTML is (c) 1999 Eric Belle <belle@isnas6.in2p3.fr>
  7. ; $VER Installer-Script for CED_HTML v1.9 (c) 27-Jan-99 Kai Philippsen <kai@philippsen.de>
  8. ;
  9.  
  10. ; -----
  11.  
  12. ; Defaults
  13.  
  14. (set #dest "")
  15.  
  16. (set @default-dest "Sys:")
  17.  
  18. ; -----
  19.  
  20. ; Define text strings
  21.  
  22. (set #MSG_START "\n\nWelcome!\n\nThis script will install all required\nfiles for CED_HTML on your Harddisk.\n\nCED_HTML is © 1999\nby Eric Belle <belle@isnas6.in2p3.fr>\n\nPlease report problems during installation to\nKai Philippsen <kai@philippsen.de>")
  23. (set #MSG_DIR "Where do you wish CED_HTML to be installed?\nA drawer named `Html' will be created there.")
  24. (set #MSG_DIR_HELP (cat "Choose the harddisk partition and optionally subdirectories, where you wish the program to be installed. A drawer named `Html' will be created and all script files will be copied there."
  25.                     "\n\nYou may choose any path you want, maybe REXX: or your CED directory for example.\n\n\n" @askdir-help))
  26. (set #MSG_DOCS "Which documentations would you like to be copied?")
  27. (set #MSG_DOCS_HELP (cat "Here you can select if you wish to install the readme file and the documentation in AmigaGuide format.\n\n\n" @askchoice-help))
  28. (set #MSG_DIR_DOCS "Where do you wish the CED_HTML documentations to be installed?")
  29. (set #MSG_DIR_DOCS_HELP (cat "Choose the harddisk partition and optionally subdirectories, where you wish the selected documentations to be installed.\n\n\n" @askdir-help))
  30. (set #READY "The installation is now complete. If you like to test CED_HTML directly, please reboot your system now or enter an assign CED_HTML: for the scripts directory manually to a shell.")
  31.  
  32.  
  33. ; ---------------------------> Procedures <-----------------------------
  34.  
  35. ; Install CED_HTML on a harddisk
  36.  
  37. (procedure inst
  38.  
  39. (complete 1)
  40.  
  41.  
  42. ; Destination for HTML drawer
  43.  
  44.  (if (= #dest "")
  45.      (
  46.          (set #dir (askdir (prompt #MSG_DIR) (help #MSG_DIR_HELP) (default @default-dest)))
  47.          (set #dest (tackon #dir "Html"))
  48.          (if (NOT (exists #dest))
  49.          (makedir #dest (infos))
  50.          )
  51.      )
  52.  )
  53.  
  54.  
  55. ; Copy scripts
  56.  
  57.     (
  58.         (
  59.         (copyfiles (source "Html") (dest #dest) (pattern "#?") (infos) (noposition))
  60.     )
  61. )
  62.  
  63. (complete 70)
  64.  
  65. ; Select documentations to copy
  66.  
  67. (set #docs
  68.      (askoptions
  69.      (prompt #MSG_DOCS)
  70.      (help #MSG_DOCS_HELP)
  71.      (choices "Readme" "AmigaGuide documentation")
  72.      )
  73. )
  74.  
  75. ; Copy documentations
  76.  
  77. (set #docs_dir #dest)
  78. (set #docs_dir (askdir (prompt #MSG_DIR_DOCS) (help #MSG_DIR_DOCS_HELP) (default #dest)))
  79.  
  80. (if (IN #docs 0)
  81.     (copyfiles (source "") (dest #docs_dir) (pattern "#?.readme") (infos) (noposition))
  82. )
  83.  
  84. (if (IN #docs 1)
  85.     (copyfiles (source "") (dest #docs_dir) (pattern "#?.guide") (infos) (noposition))
  86. )
  87.  
  88. (complete 90)
  89.  
  90. ; Modify user-startup
  91.  
  92. (startup "CED_HTML"
  93.     (prompt "In order to make CED_HTML find the script directory, an assign CED_HTML: has to be added to the \"s:user-startup\" file.")
  94.     (help @startup-help)
  95.         (command "assign CED_HTML: \"" #dest "\"\n")
  96. )
  97.  
  98. (complete 100)
  99.  
  100. )
  101.  
  102. ; ------------------------------> MAIN <--------------------------------
  103.  
  104. (message #MSG_START)
  105.  
  106. (inst)
  107.  
  108. (set @default-dest #dest)
  109.  
  110. (message #READY)
  111.  
  112. (exit)
  113.